home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / emacs16d.zip / ABBREV.MIN < prev    next >
Text File  |  1991-09-04  |  3KB  |  149 lines
  1.  
  2.  
  3. Name:Afilename
  4. [*]abbrev[*]
  5.  
  6.  
  7. Name:A-abbrev-all-caps
  8. Does nothing (yet).
  9. [*][*]
  10.  
  11.  
  12. Name:A-save-abbrev
  13. If non-empty, offer to save abbreviations if any have been added or deleted.
  14. [*]-[*]
  15.  
  16.  
  17. Name:A:add-global-abbrev
  18. [*]#(Adefine-abbrev)[*]
  19.  
  20.  
  21. Name:A:add-mode-abbrev
  22. [*]#(Adefine-abbrev,##(buffer-mode.##(ba,-1)))[*]
  23.  
  24.  
  25. Name:A:abbrev-mode
  26. Turns on/off auto-abbreviation (when a space is typed) in the current
  27. buffer.  The abbrev library is loaded if required
  28. [*]#(Fset-minor-mode,Abbrev)[*]
  29.  
  30.  
  31. Name:A:edit-abbrevs
  32. [*]#(Muse-edit-buffer)
  33. #(sv,mb,##(lv,mb),
  34.     #(Fcrlf)
  35.     #(Fset-new-mark,<)
  36.     #(Fcrlf)
  37.     #(is,Editing abbrevs.  Press C-c C-c when finished.  The global abbreviations(
  38. are in the strings starting with  "abbrev..".  The mode specific abbreviations
  39. have the mode name in between the first two dots.
  40. ))
  41. )
  42. #(M:strings-edit,abbrev.)
  43. [*]
  44.  
  45.  
  46.  
  47. Name:A:expand-abbrev
  48. Expands the abbreviation that occurs before the point by looking
  49. for a string named abbrev.Mode.<abbreviation>, or else abbrev..<abbreviation>.
  50. [*]#(n?,abbrev.##(buffer-mode.##(ba,-1)).##(rm,{),(
  51.     #(is,##(abbrev.##(buffer-mode.##(ba,-1)).##(rm,{)##(dm,{)))
  52. ),(
  53.     #(n?,abbrev..##(rm,{),(
  54.         #(is,##(abbrev..##(rm,{)##(dm,{)))
  55.     ))
  56. ))[*]
  57.  
  58.  
  59. Name:A:inverse-add-global-abbrev
  60. [*]#(Ainverse-define-abbrev)[*]
  61.  
  62.  
  63. Name:A:inverse-add-mode-abbrev
  64. [*]#(Ainverse-define-abbrev,##(buffer-mode.##(ba,-1)))[*]
  65.  
  66.  
  67. Name:A:kill-all-abbrevs
  68. [*]#(es,#(ls,(,),abbrev.))
  69. #(ds,abbrevs-modified)
  70. [*]
  71.  
  72.  
  73. Name:A:list-abbrevs
  74. [*]#(A:edit-abbrevs)[*]
  75.  
  76.  
  77. Name:A:read-abbrev-file
  78. Read a file describing all defined abbrevs.
  79. [*]#(Ferror,#(ll,#(env.EMACS)abbrev.def))
  80. #(es,abbrevs-modified)
  81. [*]
  82.  
  83.  
  84. Name:A:write-abbrev-file
  85. Write a file describing all defined abbrevs.
  86. [*]#(Ferror,#(sl,#(env.EMACS)abbrev.def,#(ls,(,),abbrev.)))
  87. #(es,abbrevs-modified)
  88. [*]
  89.  
  90.  
  91. Name:Adefine-abbrev
  92. Defines an abbreviation for the string before the point.  This is extremely
  93. simple, and uses up Mint string space for the abbreviations.  For my uses
  94. these sorts of abbreviations are far superior to the "dabbrev" ones that are
  95. also around --- but I do tend to produce some fairly obscure documents!
  96. Arg1 is the mode to define the abbrev in (if any).
  97. [*]#(pm,1)
  98. #(sp,-{)
  99. #(Freadline,##(==,arg1,,Global,Mode) abbrev for "##(rm,0)": ,(
  100.     #(ds,abbrev.arg1.##(value),##(rm,0))
  101.     #(ds,abbrevs-modified)
  102. ))
  103. #(sp,0)
  104. #(pm)[*]
  105.  
  106.  
  107. Name:Ainverse-define-abbrev
  108. Defines an expansion for the string before the point.
  109. Arg1 is the mode to define the abbrev in (if any).
  110. [*]#(pm,1)
  111. #(sp,-{)
  112. #(Freadline,##(==,arg1,,Global,Mode) expansion for "##(rm,0)": ,(
  113.     #(ds,abbrev.arg1.##(rm,0),##(value))
  114.     #(ds,abbrevs-modified)
  115.     #(sp,0-)
  116.     #(dm,{)
  117.     #(is,##(value))
  118. ))
  119. #(sp,0)
  120. #(pm)[*]
  121.  
  122.  
  123. Name:F!A:abbrev-mode
  124. [*][*]
  125.  
  126.  
  127. Name:Fautoload-A
  128. [*]abbrev[*]
  129.  
  130. Name:K.C-x C-h
  131. [*]A:inverse-add-mode-abbrev[*]
  132.  
  133.  
  134. Name:K.C-x C-a
  135. [*]A:add-mode-abbrev[*]
  136.  
  137.  
  138. Name:K.C-x +
  139. [*]A:add-global-abbrev[*]
  140.  
  141.  
  142. Name:K.C-x -
  143. [*]A:inverse-add-global-abbrev[*]
  144.  
  145.  
  146. Name:K.C-x '
  147. [*]A:expand-abbrev[*]
  148.  
  149.